﻿Public Class archivo
    Public Property extension As extension
    Public Property nombre As String

    Sub New(nombre As String, extension As String)
        Me.nombre = nombre
        Me.extension = New extension(extension)
    End Sub
    Public Overrides Function ToString() As String
        Return Me.nombre
    End Function
End Class
